home *** CD-ROM | disk | FTP | other *** search
Text File | 1992-03-05 | 695 b | 36 lines | [TEXT/Help] |
- {Some benchs from Gabriel, runs on a IICi}
-
-
- (define (tak x y z)
- (cond (not (<? y x))
- z
- (tak (tak (1- x) y z)
- (tak (1- y) z x)
- (tak (1- z) x y))))
- { = tak }
-
- (chrono (tak 18 12 6))
- { = [7 2.243333333333333333e+1 1.333333333333333333e+0] }
-
- (setstrict tak %111)
- (chrono (tak 18 12 6))
- { = [7 1.890000000000000000e+1 5.166666666666666666e-1] }
-
- (define (rd2 l)
- (cond (null? l) ()
- (cons (0 l)(rd2 (-2 l)))))
- { = rd2 }
- (define (t n)
- (cond (zero? n) ()
- (begin (rd2 ll)(rd2 ll)(rd2 ll)(rd2 ll)(t (1- n)))))
- { = t }
- (chrono (t 300))
-
-
- (define (c n)
- (cond (zero? n) ()
- (cons () (c (1- n)))))
- { = c }
- (define ll (c 200))
- { = ll }
-